home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / Pascal / Snippets / PNL Libraries / Libraries / GIF / GIFSave.p < prev    next >
Text File  |  1995-07-20  |  495b  |  22 lines
  1. unit GIFSave;
  2.  
  3. interface
  4.  
  5.     uses
  6.         Files;
  7.         
  8.     const
  9.         GIF_OK = 0;
  10.         GIF_ERRCREATE = 1;
  11.         GIF_ERRWRITE = 2;
  12.         GIF_OUTMEM = 3;
  13.  
  14.     type
  15.         GetPixelProcType = function (x,y: integer): integer;
  16.         
  17.     function GIF_Create(var filename: FSSpec; width, height, numcolors, colorres: integer) : integer;
  18.     procedure GIF_SetColor(colornum,red, green, blue: integer);
  19.     function GIF_CompressImage(left, top, width, height: integer; getpixel: GetPixelProcType):integer;
  20.     function GIF_Close:integer;
  21.  
  22. end.